unit form_move;

{$mode objfpc}{$H+}

interface

uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    StdCtrls, picture_core, picture_publ;

type

    { Tfm_move }

    Tfm_move = class(TForm)
        bt_apply: TButton;
        txt_move_x_val: TLabeledEdit;
        txt_move_y_val: TLabeledEdit;
        procedure bt_applyClick(Sender: TObject);
    private
    public
    end;

var
    fm_move: Tfm_move;

implementation

{$R *.lfm}

// Перенос изображения
procedure Tfm_move.bt_applyClick(Sender: TObject);
var
    move_val: TRPoint;
begin

    // Проверка полей ввода данных
    if (txt_move_x_val.Text = '') or (txt_move_y_val.Text = '') then
        ShowMessage('Отсутствуют данные для переноса изображения.')
    else
    begin

        // Сбор данных
        with move_val do
        begin
            X := StrToFloat(txt_move_x_val.Text);
            Y := StrToFloat(txt_move_y_val.Text);
        end;

        // Перенос изображения
        pic_graph.conv_mov(move_val);
        pic_graph.conv_apply();
        fm_move.Close();

    end;

end;

end.

